﻿<!-- #Include File="Channel_Article.asp" -->
<%
strFileName = "Index.asp"
Select Case Web_IsCreatIndexShow
Case True
	IndexFile = InstallDir & Web_IndexShowFile
Case Else
	IndexFile = InstallDir & IndexShow
End Select
Select Case ChannelIsCreateHtml
Case True
	ChannelIndexFile = InstallDir & ChannelDir & "/Index" & ChannelHtmlExtName
Case Else
	ChannelIndexFile = InstallDir & ChannelDir & "/Index.asp"
End Select
StrShowPath = "·您的位置：<a href='"&IndexFile&"' class='LinkPath'>本站首页</a>&nbsp;&gt;&nbsp;<a href='"&ChannelIndexFile&"' class='LinkPath'>"&ChannelTit&"首页</a>"&ShowPath(Cid)
If ChannelIsCreateHtml = True Then
	Dim TmpCls
	Set TmpCls = New Cls_FileSystem
	If TmpCls.Chk_Exist(InstallDir & ChannelDir & "/Index" & ChannelHtmlExtName,1) Then
		Response.Redirect(InstallDir & ChannelDir & "/Index" & ChannelHtmlExtName)
	Else
		Response.Write "&#25991;&#20214;&#27809;&#26377;&#29983;&#25104;&#65292;&#26080;&#27861;&#35775;&#38382;"
	End If
	Set TmpCls = Nothing
Else
	Call ShowChannelIndex(False)
End If
If IsConn = False Then Call CloseConn()
%>